home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
AZTECW.DIR
/
01705_Script_Sickness
< prev
next >
Wrap
Text File
|
1995-09-12
|
9KB
|
333 lines
global gQuest, gBeenClicked
on ASickRollovers1
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(12) or rollover(13) or rollover(14) then
ArrowCursor
repeat while rollover(12) or rollover(13) or rollover(14)
set the locH of sprite 15 to 362
set the locV of sprite 15 to 256
set the locH of sprite 16 to 93
set the locV of sprite 16 to 288
set the locH of sprite 17 to 535
set the locV of sprite 17 to 336
updatestage
end repeat
set the locH of sprite 15 to 962
set the locH of sprite 16 to 993
set the locH of sprite 17 to 935
updatestage
else
if rollover(11) then
repeat while rollover(11)
AztecCursor
puppetsprite 47, true
set the locH of sprite 47 to 475
set the locV of sprite 47 to 216
updatestage
if the mousedown then
removeBathHouse
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
set the locH of sprite 47 to 975
updatestage
AnimateLoop 3, 662, 3, "SA340300.AIF", 3
replacebathhouse
end repeat
end if
end if
end repeat
set the locH of sprite 47 to 975
updatestage
puppetsprite 47, false
replacebathhouse
else
if rollover(9) or rollover(10) then
repeat while rollover(9) or rollover(10)
AztecCursor
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateMudBath
end repeat
end if
end if
end repeat
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on ASickRollovers2
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) or rollover(7) then
repeat while rollover(6) or rollover(7)
AztecCursor
puppetsprite 9, true
set the locH of sprite 9 to 161
set the locV of sprite 9 to 217
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
MedicineDoctor
end repeat
end if
end if
end repeat
set the locH of sprite 9 to 961
puppetsprite 9, false
updatestage
else
if rollover(10) then
ArrowCursor
repeat while rollover(10)
set the locH of sprite 11 to 232
set the locV of sprite 11 to 336
updatestage
end repeat
set the locH of sprite 11 to 932
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 473
set the locV of sprite 13 to 312
updatestage
end repeat
set the locH of sprite 13 to 973
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on MedicineDoctor
ArrowCursor
set gAnimationcast1 = 685
set gAnimationcast2 = 689
set count = 0
puppetsound "SA340202.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 6 = gAnimationcast1 + 1
updatestage
wait .5
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1 + 3
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 6 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 6 = gAnimationcast1 + 3
set the castnum of sprite 7 = gAnimationcast2
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 6 = gAnimationcast1 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set count = count + 1
end repeat
set the castnum of sprite 6 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
updatestage
sound fadeout 1, 2*60
set gBeenClicked = 0
end
on AnimateMudBath
ArrowCursor
set gAnimationcast1 = 666
set gAnimationcast2 = 675
set count = 0
puppetsound "SA340302.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 9 = gAnimationcast1 + 1
set the castnum of sprite 10 = gAnimationcast2 + 1
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 9 = gAnimationcast1 + 2
set the castnum of sprite 10 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 3
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 4
set the castnum of sprite 10 = gAnimationcast2 + 3
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 5
set the castnum of sprite 10 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 6
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 6
set the castnum of sprite 10 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 7
set the castnum of sprite 10 = gAnimationcast2
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 8
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1
updatestage
if (the mousedown) then
exit repeat
end if
wait .2
set count = count + 1
end repeat
set the castnum of sprite 9 = gAnimationcast1
set the castnum of sprite 10 = gAnimationcast2
updatestage
sound fadeout 1, 2*60
set gBeenClicked = 0
end
on ResetFlowers
set the locH of sprite 15 to 862
set the locH of sprite 16 to 873
set the locH of sprite 17 to 835
puppetsprite 15, false
puppetsprite 16, false
puppetsprite 17, false
updatestage
end
on removeBathHouse
puppetsound "SA340301.AIF"
updatestage
wait .5
puppetsprite 4, true
set the locH of sprite 4 to 800
updatestage
end
on replaceBathHouse
set the locH of sprite 4 to 328
set the locV of sprite 4 to 226
puppetsprite 4, false
updatestage
end